Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


Private Sub Command1_Click()
mciSendString "set CDAudio Door Open wait", 0&, 0&, 0&
End Sub


Private Sub Command2_Click()
mciSendString "set CDAudio Door Closed wait", 0&, 0&, 0&
End Sub

